/ Komputer for Alle 2001 #9 / CD 9 (Black) - 2001.iso / Pinball / System / UBrowser.u / UBrowserServerList_UBrowserMainWindow_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 52 26 2f 2f 3d 3d 3d 3d |........|R&//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 55 42 |========|=..// UB|
|00000060| 72 6f 77 73 65 72 4d 61 | 69 6e 57 69 6e 64 6f 77 |rowserMa|inWindow|
|00000070| 20 2d 20 54 68 65 20 6d | 61 69 6e 20 77 69 6e 64 | - The m|ain wind|
|00000080| 6f 77 0d 0a 2f 2f 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ow..//==|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 0d 0a 63 6c 61 | 73 73 20 55 42 72 6f 77 |===..cla|ss UBrow|
|000000e0| 73 65 72 4d 61 69 6e 57 | 69 6e 64 6f 77 20 65 78 |serMainW|indow ex|
|000000f0| 74 65 6e 64 73 20 55 57 | 69 6e 64 6f 77 46 72 61 |tends UW|indowFra|
|00000100| 6d 65 64 57 69 6e 64 6f | 77 3b 0d 0a 0d 0a 76 61 |medWindo|w;....va|
|00000110| 72 20 55 42 72 6f 77 73 | 65 72 42 61 6e 6e 65 72 |r UBrows|erBanner|
|00000120| 42 61 72 09 09 09 42 61 | 6e 6e 65 72 57 69 6e 64 |Bar...Ba|nnerWind|
|00000130| 6f 77 3b 0d 0a 76 61 72 | 20 73 74 72 69 6e 67 09 |ow;..var| string.|
|00000140| 09 09 09 09 09 53 74 61 | 74 75 73 42 61 72 44 65 |.....Sta|tusBarDe|
|00000150| 66 61 75 6c 74 54 65 78 | 74 3b 0d 0a 76 61 72 20 |faultTex|t;..var |
|00000160| 62 6f 6f 6c 09 09 09 09 | 09 09 62 53 74 61 6e 64 |bool....|..bStand|
|00000170| 61 6c 6f 6e 65 42 72 6f | 77 73 65 72 3b 0d 0a 76 |aloneBro|wser;..v|
|00000180| 61 72 20 6c 6f 63 61 6c | 69 7a 65 64 20 73 74 72 |ar local|ized str|
|00000190| 69 6e 67 09 09 09 57 69 | 6e 64 6f 77 54 69 74 6c |ing...Wi|ndowTitl|
|000001a0| 65 53 74 72 69 6e 67 3b | 0d 0a 0d 0a 66 75 6e 63 |eString;|....func|
|000001b0| 74 69 6f 6e 20 44 65 66 | 61 75 6c 74 53 74 61 74 |tion Def|aultStat|
|000001c0| 75 73 42 61 72 54 65 78 | 74 28 73 74 72 69 6e 67 |usBarTex|t(string|
|000001d0| 20 54 65 78 74 29 0d 0a | 7b 0d 0a 09 53 74 61 74 | Text)..|{...Stat|
|000001e0| 75 73 42 61 72 44 65 66 | 61 75 6c 74 54 65 78 74 |usBarDef|aultText|
|000001f0| 20 3d 20 54 65 78 74 3b | 0d 0a 09 53 74 61 74 75 | = Text;|...Statu|
|00000200| 73 42 61 72 54 65 78 74 | 20 3d 20 54 65 78 74 3b |sBarText| = Text;|
|00000210| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000220| 42 65 67 69 6e 50 6c 61 | 79 28 29 0d 0a 7b 0d 0a |BeginPla|y()..{..|
|00000230| 09 53 75 70 65 72 2e 42 | 65 67 69 6e 50 6c 61 79 |.Super.B|eginPlay|
|00000240| 28 29 3b 0d 0a 0d 0a 09 | 57 69 6e 64 6f 77 54 69 |();.....|WindowTi|
|00000250| 74 6c 65 20 3d 20 57 69 | 6e 64 6f 77 54 69 74 6c |tle = Wi|ndowTitl|
|00000260| 65 53 74 72 69 6e 67 3b | 0d 0a 09 43 6c 69 65 6e |eString;|...Clien|
|00000270| 74 43 6c 61 73 73 20 3d | 20 63 6c 61 73 73 27 55 |tClass =| class'U|
|00000280| 42 72 6f 77 73 65 72 4d | 61 69 6e 43 6c 69 65 6e |BrowserM|ainClien|
|00000290| 74 57 69 6e 64 6f 77 27 | 3b 0d 0a 7d 0d 0a 0d 0a |tWindow'|;..}....|
|000002a0| 66 75 6e 63 74 69 6f 6e | 20 57 69 6e 64 6f 77 53 |function| WindowS|
|000002b0| 68 6f 77 6e 28 29 0d 0a | 7b 0d 0a 09 53 75 70 65 |hown()..|{...Supe|
|000002c0| 72 2e 57 69 6e 64 6f 77 | 53 68 6f 77 6e 28 29 3b |r.Window|Shown();|
|000002d0| 0d 0a 09 69 66 28 57 69 | 6e 4c 65 66 74 20 3c 20 |...if(Wi|nLeft < |
|000002e0| 30 20 7c 7c 20 57 69 6e | 54 6f 70 20 3c 20 31 36 |0 || Win|Top < 16|
|000002f0| 20 7c 7c 20 57 69 6e 4c | 65 66 74 20 2b 20 57 69 | || WinL|eft + Wi|
|00000300| 6e 57 69 64 74 68 20 3e | 20 52 6f 6f 74 2e 57 69 |nWidth >| Root.Wi|
|00000310| 6e 57 69 64 74 68 20 7c | 7c 20 57 69 6e 54 6f 70 |nWidth ||| WinTop|
|00000320| 20 2b 20 57 69 6e 48 65 | 69 67 68 74 20 3e 20 52 | + WinHe|ight > R|
|00000330| 6f 6f 74 2e 57 69 6e 48 | 65 69 67 68 74 29 0d 0a |oot.WinH|eight)..|
|00000340| 09 09 53 65 74 53 69 7a | 65 50 6f 73 28 29 3b 0d |..SetSiz|ePos();.|
|00000350| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 43 |.}....fu|nction C|
|00000360| 72 65 61 74 65 64 28 29 | 0d 0a 7b 0d 0a 09 62 53 |reated()|..{...bS|
|00000370| 69 7a 61 62 6c 65 20 3d | 20 54 72 75 65 3b 0d 0a |izable =| True;..|
|00000380| 09 62 53 74 61 74 75 73 | 42 61 72 20 3d 20 54 72 |.bStatus|Bar = Tr|
|00000390| 75 65 3b 0d 0a 0d 0a 09 | 53 75 70 65 72 2e 43 72 |ue;.....|Super.Cr|
|000003a0| 65 61 74 65 64 28 29 3b | 0d 0a 0d 0a 09 4d 69 6e |eated();|.....Min|
|000003b0| 57 69 6e 57 69 64 74 68 | 20 3d 20 33 30 30 3b 0d |WinWidth| = 300;.|
|000003c0| 0a 0d 0a 09 53 65 74 53 | 69 7a 65 50 6f 73 28 29 |....SetS|izePos()|
|000003d0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000003e0| 20 42 65 66 6f 72 65 50 | 61 69 6e 74 28 43 61 6e | BeforeP|aint(Can|
|000003f0| 76 61 73 20 43 2c 20 66 | 6c 6f 61 74 20 58 2c 20 |vas C, f|loat X, |
|00000400| 66 6c 6f 61 74 20 59 29 | 0d 0a 7b 0d 0a 09 69 66 |float Y)|..{...if|
|00000410| 28 53 74 61 74 75 73 42 | 61 72 54 65 78 74 20 3d |(StatusB|arText =|
|00000420| 3d 20 22 22 29 0d 0a 09 | 09 53 74 61 74 75 73 42 |= "")...|.StatusB|
|00000430| 61 72 54 65 78 74 20 3d | 20 53 74 61 74 75 73 42 |arText =| StatusB|
|00000440| 61 72 44 65 66 61 75 6c | 74 54 65 78 74 3b 0d 0a |arDefaul|tText;..|
|00000450| 0d 0a 09 53 75 70 65 72 | 2e 42 65 66 6f 72 65 50 |...Super|.BeforeP|
|00000460| 61 69 6e 74 28 43 2c 20 | 58 2c 20 59 29 3b 0d 0a |aint(C, |X, Y);..|
|00000470| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 43 6c |}....fun|ction Cl|
|00000480| 6f 73 65 28 6f 70 74 69 | 6f 6e 61 6c 20 62 6f 6f |ose(opti|onal boo|
|00000490| 6c 20 62 42 79 50 61 72 | 65 6e 74 29 20 0d 0a 7b |l bByPar|ent) ..{|
|000004a0| 0d 0a 09 69 66 28 62 53 | 74 61 6e 64 61 6c 6f 6e |...if(bS|tandalon|
|000004b0| 65 42 72 6f 77 73 65 72 | 29 0d 0a 09 09 52 6f 6f |eBrowser|)....Roo|
|000004c0| 74 2e 43 6f 6e 73 6f 6c | 65 2e 43 6c 6f 73 65 55 |t.Consol|e.CloseU|
|000004d0| 57 69 6e 64 6f 77 28 29 | 3b 0d 0a 09 65 6c 73 65 |Window()|;...else|
|000004e0| 0d 0a 09 09 53 75 70 65 | 72 2e 43 6c 6f 73 65 28 |....Supe|r.Close(|
|000004f0| 62 42 79 50 61 72 65 6e | 74 29 3b 0d 0a 7d 0d 0a |bByParen|t);..}..|
|00000500| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 52 65 73 6f 6c |..functi|on Resol|
|00000510| 75 74 69 6f 6e 43 68 61 | 6e 67 65 64 28 66 6c 6f |utionCha|nged(flo|
|00000520| 61 74 20 57 2c 20 66 6c | 6f 61 74 20 48 29 0d 0a |at W, fl|oat H)..|
|00000530| 7b 0d 0a 09 53 65 74 53 | 69 7a 65 50 6f 73 28 29 |{...SetS|izePos()|
|00000540| 3b 0d 0a 09 53 75 70 65 | 72 2e 52 65 73 6f 6c 75 |;...Supe|r.Resolu|
|00000550| 74 69 6f 6e 43 68 61 6e | 67 65 64 28 57 2c 20 48 |tionChan|ged(W, H|
|00000560| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00000570| 6e 20 53 65 74 53 69 7a | 65 50 6f 73 28 29 0d 0a |n SetSiz|ePos()..|
|00000580| 7b 0d 0a 09 69 66 28 52 | 6f 6f 74 2e 57 69 6e 48 |{...if(R|oot.WinH|
|00000590| 65 69 67 68 74 20 3c 20 | 34 30 30 29 0d 0a 09 09 |eight < |400)....|
|000005a0| 53 65 74 53 69 7a 65 28 | 4d 69 6e 28 36 32 30 2c |SetSize(|Min(620,|
|000005b0| 20 52 6f 6f 74 2e 57 69 | 6e 57 69 64 74 68 20 2d | Root.Wi|nWidth -|
|000005c0| 20 31 30 29 2c 20 52 6f | 6f 74 2e 57 69 6e 48 65 | 10), Ro|ot.WinHe|
|000005d0| 69 67 68 74 2d 33 32 29 | 3b 0d 0a 09 65 6c 73 65 |ight-32)|;...else|
|000005e0| 0d 0a 09 09 53 65 74 53 | 69 7a 65 28 4d 69 6e 28 |....SetS|ize(Min(|
|000005f0| 36 32 30 2c 20 52 6f 6f | 74 2e 57 69 6e 57 69 64 |620, Roo|t.WinWid|
|00000600| 74 68 20 2d 20 31 30 29 | 2c 20 52 6f 6f 74 2e 57 |th - 10)|, Root.W|
|00000610| 69 6e 48 65 69 67 68 74 | 2d 35 30 29 3b 0d 0a 0d |inHeight|-50);...|
|00000620| 0a 09 57 69 6e 4c 65 66 | 74 20 3d 20 49 6e 74 28 |..WinLef|t = Int(|
|00000630| 28 52 6f 6f 74 2e 57 69 | 6e 57 69 64 74 68 20 2d |(Root.Wi|nWidth -|
|00000640| 20 57 69 6e 57 69 64 74 | 68 29 20 2f 20 32 29 3b | WinWidt|h) / 2);|
|00000650| 0d 0a 09 57 69 6e 54 6f | 70 20 3d 20 49 6e 74 28 |...WinTo|p = Int(|
|00000660| 28 52 6f 6f 74 2e 57 69 | 6e 48 65 69 67 68 74 20 |(Root.Wi|nHeight |
|00000670| 2d 20 57 69 6e 48 65 69 | 67 68 74 29 20 2f 20 32 |- WinHei|ght) / 2|
|00000680| 29 3b 0d 0a 0d 0a 09 4d | 69 6e 57 69 6e 48 65 69 |);.....M|inWinHei|
|00000690| 67 68 74 20 3d 20 4d 69 | 6e 28 33 30 30 2c 20 57 |ght = Mi|n(300, W|
|000006a0| 69 6e 48 65 69 67 68 74 | 20 2d 20 32 30 29 3b 0d |inHeight| - 20);.|
|000006b0| 0a 7d 0d 0a 0d 0a 2f 2f | 20 45 78 74 65 72 6e 61 |.}....//| Externa|
|000006c0| 6c 20 65 6e 74 72 79 20 | 70 6f 69 6e 74 73 0d 0a |l entry |points..|
|000006d0| 66 75 6e 63 74 69 6f 6e | 20 53 68 6f 77 4f 70 65 |function| ShowOpe|
|000006e0| 6e 57 69 6e 64 6f 77 28 | 29 0d 0a 7b 0d 0a 09 6c |nWindow(|)..{...l|
|000006f0| 6f 63 61 6c 20 55 42 72 | 6f 77 73 65 72 4f 70 65 |ocal UBr|owserOpe|
|00000700| 6e 57 69 6e 64 6f 77 20 | 57 3b 0d 0a 0d 0a 09 57 |nWindow |W;.....W|
|00000710| 20 3d 20 55 42 72 6f 77 | 73 65 72 4f 70 65 6e 57 | = UBrow|serOpenW|
|00000720| 69 6e 64 6f 77 28 52 6f | 6f 74 2e 43 72 65 61 74 |indow(Ro|ot.Creat|
|00000730| 65 57 69 6e 64 6f 77 28 | 63 6c 61 73 73 27 55 42 |eWindow(|class'UB|
|00000740| 72 6f 77 73 65 72 4f 70 | 65 6e 57 69 6e 64 6f 77 |rowserOp|enWindow|
|00000750| 27 2c 20 33 30 30 2c 20 | 38 30 2c 20 31 30 30 2c |', 300, |80, 100,|
|00000760| 20 31 30 30 2c 20 53 65 | 6c 66 2c 20 54 72 75 65 | 100, Se|lf, True|
|00000770| 29 29 3b 0d 0a 09 53 68 | 6f 77 4d 6f 64 61 6c 28 |));...Sh|owModal(|
|00000780| 57 29 3b 09 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |W);...}.|...funct|
|00000790| 69 6f 6e 20 4f 70 65 6e | 55 52 4c 28 73 74 72 69 |ion Open|URL(stri|
|000007a0| 6e 67 20 55 52 4c 29 0d | 0a 7b 0d 0a 09 69 66 28 |ng URL).|.{...if(|
|000007b0| 20 4c 65 66 74 28 55 52 | 4c 2c 20 37 29 20 7e 3d | Left(UR|L, 7) ~=|
|000007c0| 20 22 68 74 74 70 3a 2f | 2f 22 20 29 0d 0a 09 09 | "http:/|/" )....|
|000007d0| 47 65 74 50 6c 61 79 65 | 72 4f 77 6e 65 72 28 29 |GetPlaye|rOwner()|
|000007e0| 2e 43 6f 6e 73 6f 6c 65 | 43 6f 6d 6d 61 6e 64 28 |.Console|Command(|
|000007f0| 22 73 74 61 72 74 20 22 | 24 55 52 4c 29 3b 0d 0a |"start "|$URL);..|
|00000800| 09 65 6c 73 65 0d 0a 09 | 69 66 28 20 4c 65 66 74 |.else...|if( Left|
|00000810| 28 55 52 4c 2c 20 39 29 | 20 7e 3d 20 22 75 6e 72 |(URL, 9)| ~= "unr|
|00000820| 65 61 6c 3a 2f 2f 22 20 | 29 0d 0a 09 09 47 65 74 |eal://" |)....Get|
|00000830| 50 6c 61 79 65 72 4f 77 | 6e 65 72 28 29 2e 43 6c |PlayerOw|ner().Cl|
|00000840| 69 65 6e 74 54 72 61 76 | 65 6c 28 55 52 4c 2c 20 |ientTrav|el(URL, |
|00000850| 54 52 41 56 45 4c 5f 41 | 62 73 6f 6c 75 74 65 2c |TRAVEL_A|bsolute,|
|00000860| 20 66 61 6c 73 65 29 3b | 0d 0a 09 65 6c 73 65 0d | false);|...else.|
|00000870| 0a 09 09 47 65 74 50 6c | 61 79 65 72 4f 77 6e 65 |...GetPl|ayerOwne|
|00000880| 72 28 29 2e 43 6c 69 65 | 6e 74 54 72 61 76 65 6c |r().Clie|ntTravel|
|00000890| 28 22 75 6e 72 65 61 6c | 3a 2f 2f 22 24 55 52 4c |("unreal|://"$URL|
|000008a0| 2c 20 54 52 41 56 45 4c | 5f 41 62 73 6f 6c 75 74 |, TRAVEL|_Absolut|
|000008b0| 65 2c 20 66 61 6c 73 65 | 29 3b 0d 0a 0d 0a 09 43 |e, false|);.....C|
|000008c0| 6c 6f 73 65 28 29 3b 0d | 0a 09 52 6f 6f 74 2e 43 |lose();.|..Root.C|
|000008d0| 6f 6e 73 6f 6c 65 2e 43 | 6c 6f 73 65 55 57 69 6e |onsole.C|loseUWin|
|000008e0| 64 6f 77 28 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |dow();..|}....fun|
|000008f0| 63 74 69 6f 6e 20 53 65 | 6c 65 63 74 49 6e 74 65 |ction Se|lectInte|
|00000900| 72 6e 65 74 28 29 0d 0a | 7b 0d 0a 09 55 42 72 6f |rnet()..|{...UBro|
|00000910| 77 73 65 72 4d 61 69 6e | 43 6c 69 65 6e 74 57 69 |wserMain|ClientWi|
|00000920| 6e 64 6f 77 28 43 6c 69 | 65 6e 74 41 72 65 61 29 |ndow(Cli|entArea)|
|00000930| 2e 53 65 6c 65 63 74 49 | 6e 74 65 72 6e 65 74 28 |.SelectI|nternet(|
|00000940| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00000950| 6e 20 53 65 6c 65 63 74 | 4c 41 4e 28 29 0d 0a 7b |n Select|LAN()..{|
|00000960| 0d 0a 09 55 42 72 6f 77 | 73 65 72 4d 61 69 6e 43 |...UBrow|serMainC|
|00000970| 6c 69 65 6e 74 57 69 6e | 64 6f 77 28 43 6c 69 65 |lientWin|dow(Clie|
|00000980| 6e 74 41 72 65 61 29 2e | 53 65 6c 65 63 74 4c 41 |ntArea).|SelectLA|
|00000990| 4e 28 29 3b 0d 0a 7d 0d | 0a 0d 0a 00             |N();..}.|....    |
+--------+-------------------------+-------------------------+--------+--------+